home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / REM FIND.A.bas < prev    next >
BASIC Source File  |  2000-01-01  |  463b  |  3 lines
  1. 5000  DATA 201,141,240,21,234,234,234,234,201,128,144,13,201,160,176,9,72,132,53,56,233,128,76,249,253,76,240,253: FOR I = 768 TO 795: READ N: POKE I,N: NEXT : POKE 54,0: POKE 55,3: CALL 1002
  2. 5050  FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT "CTRL-REMS EXPOSED AS INVERSE. ": PRINT "EFFECT CANCELLED BY PR#0 OR <RESET>.": FOR I = 1 TO 40: PRINT "-";: NEXT 
  3. 6000 ST = 800: POKE 103, PEEK(ST): POKE 104, PEEK(ST +1): POKE 175, PEEK(ST +2): POKE 176, PEEK(ST +3): END